PC Format 6 (5.25")/PC Format - Issue 6 March 1992 - Disk 2.ima/PCF.BAT

DOS Batch File | 1994-08-29 | 5KB | 309 lines

echo off
cls

disp menu\pcfiss6 1

:start
nocurs
disp menu\pcfiss6 2
getkey xuzcp


if errorlevel 5 goto parents
if errorlevel 4 goto crystal
if errorlevel 3 goto zip
if errorlevel 2 goto utils
if errorlevel 1 goto quit

rem ****************************Crystal Installation************************

:crystal
disp menu\crysop 2
getkey rum

if errorlevel 3 goto start
if errorlevel 2 goto unarch
if errorlevel 1 goto unrun

:unrun
disp menu\unrun 2
getkey abe

if errorlevel 3 goto crystal
if errorlevel 2 goto unrunb
if errorlevel 1 goto unruna

rem ****************Unarchive and run program from a: ********************
:unruna
disp menu\unruna 2
getkey bcm

if errorlevel 3 goto unrun
if errorlevel 2 goto uncopyc
if errorlevel 1 goto uncopyb

:uncopyc
cls
echo Please wait...
md c:\crystal
copy crystal\crys.exe c:\crystal
c:
cd crystal
crys
cc1
a:
goto start

:uncopyb
cls
echo Please wait...
copy crystal\crys.exe b:
b:
crys
cc1
a:
goto start

rem **********************Unarchive and run from b:************************

:unrunb
disp menu\unrunb 2
getkey acm

if errorlevel 3 goto unrun
if errorlevel 2 goto uncopyci
if errorlevel 1 goto uncopyai

:uncopyci
cls
echo Please wait...
md c:\crystal
copy crystal\crys.exe c:\crystal
c:
cd crystal
crys
cc1
b:
goto start

:uncopyai
cls
echo Please wait...
copy crystal\crys.exe a:
a:
crys
cc1
b:
goto start

:unarch
disp menu\unarch 2
getkey abe

if errorlevel 3 goto crystal
if errorlevel 2 goto unarchb
if errorlevel 1 goto unarcha

rem ***********************Unarchive program from a:*********************

:unarcha
disp menu\unarcha 2
getkey bcm

if errorlevel 3 goto unarch
if errorlevel 2 goto uncpyc
if errorlevel 1 goto uncpyb

:uncpyc
cls
echo Please wait...
md c:\crystal
copy crystal\crys.exe c:\crystal
c:
cd crystal
crys
a:
goto start

:uncpyb
cls
echo Please wait...
copy crystal\crys.exe b:
b:
crys
a:
goto start

rem ****************************Unarchive from b:*************************

:unarchb
disp menu\unarchb 2
getkey acm

if errorlevel 3 goto unarch
if errorlevel 2 goto uncpyci
if errorlevel 1 goto uncpyai

:uncpyci
cls
echo Please wait...
md c:\crystal
copy crystal\crys.exe c:\crystal
c:
cd crystal
crys
b:
goto start

:uncpyai
cls
echo Please wait...
copy crystal\crys.exe a:
a:
crys
b:
goto start

rem *****************************PKUNZIP & PKZIP****************************

:zip
disp menu\pkzip 2
getkey mcba

if errorlevel 4 goto ainst
if errorlevel 3 goto binst
if errorlevel 2 goto cinst
if errorlevel 1 goto start

rem ***************************Installing to C:*****************************

:cinst
cls
echo Please wait...
md c:\utils
copy zip\*.* c:\utils
goto start

rem ***************************Installing to B:*****************************

:binst
cls
echo Please wait...
copy zip\*.* b:
goto start

rem ***************************Installing to A:*****************************

:ainst
cls Please wait...
copy zip\*.* a:
goto start

rem **********************************Utils*********************************
:utils
disp menu\utils 2
getkey mcrs

if errorlevel 4 goto sec
if errorlevel 3 goto ram
if errorlevel 2 goto sim
if errorlevel 1 goto start
rem *******************************Secret demo******************************

:sec

disp menu\sec1 2
getkey qn

if errorlevel 2 goto sec1
if errorlevel 1 goto utils

:sec1

cls
cd secret
echo on
dir
pause
echo off
cd..

disp menu\sec2 2
getkey qn

if errorlevel 2 goto sec2
if errorlevel 1 goto utils

:sec2

cls
cd secret
echo on
cdsecret
dir
pause
echo off
cd..

disp menu\sec3 2
getkey c

if errorlevel 1 goto utils

rem ********************************SimCGA**********************************

:sim

cls
cd simcga
simcga
cd..
echo Your monitor will now emulate CGA
pause
goto utils

rem ********************************RamFree*********************************

:ram
cls
cd ramfree
ramfree
cd..
pause
goto utils

rem ********************************Parents*********************************

:parents
disp menu\par 2
getkey mcba

if errorlevel 4 goto cpya
if errorlevel 3 goto cpyb
if errorlevel 2 goto cpyc
if errorlevel 1 goto start

:cpya
cls
copy \parents\*.* a:
goto start

:cpyb
cls
copy \parents\*.* b:
goto start

:cpyc
cls
md c:\parents
copy \parents\*.* c:\parents
goto start

rem *******************************Quitting*********************************

:quit
cls
echo Thankyou for using the PC Format coverdisk.
cd..
pause